Developer Helper 1: Phil & Dave's Excellent CD/Excellent CD HFS.raw/HyperCard/HyperCard 1.2.2 International/HyperCard British (B-1.2.2)/More Stacks/Address/background_2179.txt

Text File | 1988-02-17 | 7KB | 332 lines

-- background: 2179 from stack: in
-- bmap block id: 3335
-- flags: 0000
-- background id: 0
-- name: File Card
----- HyperTalk script -----
on closeField
  --put the date into field "date"
end closeField

on newCard
  tabKey
end newCard




-- part 1 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=105 top=52 right=180 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Name and Address


-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=234 top=239 right=266 bottom=265
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to prev card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=266 top=239 right=266 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=423 top=239 right=265 bottom=453
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 11 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=134 top=184 right=240 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Phone Number


-- part 30 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=338 top=244 right=262 bottom=425
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date


-- part 36 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=32 top=30 right=64 bottom=71
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go "Home"
end mouseUp



-- part 37 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=33 top=72 right=106 bottom=72
-- title width / last selected line: 0
-- icon id / first selected line: 22855 / 22855
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Yearly
----- HyperTalk script -----
on mouseUp
  get the seconds
  convert it to dateItems
  put ((item 1 of it) - 1987) *2 into whichSix
  if item 2 of it > 6 then add 1 to whichSix
  visual effect zoom open
  if whichSix < 1 then go card 1 of stack "DateBook"
  else if whichSix > 5 then go card 5 of stack "DateBook"
  else
    go to card whichSix of stack "DateBook"
    send "bracketWeek" && the seconds to this card
  end if
end mouseUp



-- part 38 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=33 top=114 right=148 bottom=72
-- title width / last selected line: 0
-- icon id / first selected line: 21209 / 21209
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Daily
----- HyperTalk script -----
on mouseUp
  set lockScreen to true
  go stack "DateBook"
  goWeekly the seconds
  set lockScreen to false
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=33 top=240 right=274 bottom=72
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  answer "Sort all cards of this stack according to:" with "First Name" or "Last Name" or "Cancel"
  if it is "First Name"
  then sort by first word of first line of field "Name and Address"
else if it is "Last Name"
then sort by last word of first line of field "Name and Address"
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=33 top=198 right=232 bottom=72
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=33 top=156 right=190 bottom=72
-- title width / last selected line: 0
-- icon id / first selected line: 20965 / 20965
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Do
----- HyperTalk script -----
on mouseUp
  go to card "First Do" of stack "Datebook"
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=103 top=181 right=203 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 30696 / 30696
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  get the selection
  if it is empty then get first line of field "Phone Number"
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=103 top=202 right=224 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  get the selection
  if it is empty then get second line of field "Phone Number"
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if
end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=103 top=223 right=245 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  get the selection
  if it is empty then get third line of field "Phone Number"
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if
end mouseUp